VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsXMLError"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'Public Function XMLCreateDataErrFile(ByVal sErrorMessage As String) As String
'
'If sErrorMessage <> "" Then
'    Dim xmldoc                  As MSXML2.DOMDocument
'    Dim ProcessInst             As MSXML2.IXMLDOMProcessingInstruction
'    Dim nRootElement            As MSXML2.IXMLDOMNode
'    Dim nErrorList              As MSXML2.IXMLDOMNode
'    Dim ellErrorList            As MSXML2.IXMLDOMElement
'    Dim nlError                 As MSXML2.IXMLDOMNodeList
'    Dim ellError                As MSXML2.IXMLDOMElement
'    Dim nError                  As MSXML2.IXMLDOMNode
'    Dim ellDescription          As MSXML2.IXMLDOMElement
'
'
'    On Error GoTo PROC_ERROR
'
'    Set xmldoc = New MSXML2.DOMDocument
'    xmldoc.Load ("C:\Shane\Projects\LCB\FormB\XML Docs\Error\FormB_Error.xml")
'
'    If xmldoc.xml = "" Then
'    i = 0
'    Set ProcessInst = xmldoc.createProcessingInstruction("xml", "version='1.0'")
'
'    Set nRootElement = xmldoc.createNode(NODE_ELEMENT, "Keytax", "")
'    Set xmldoc.documentElement = nRootElement
'
'    Set nErrorList = xmldoc.createElement("ErrorList")
'    Set ellErrorList = nErrorList
'    Call ellErrorList.setAttribute("Type", KeyTaxType)         '01 = Request,03=Cancel Directive,07=Resend Directive,08=Status Request
'    Call nRootElement.appendChild(nErrorList)
'
'    Set nlError = xmldoc.createElement("Error")
'    Set ellError = nlError
'    Call ellError.setAttribute("Type", "02")
'    Call nErrorList.appendChild(nlError)
'
'
'    Set ellDescription = xmldoc.createElement("Description")
'    ellDescription.nodeTypedValue = sErrorMessage
'    Call ellError.appendChild(ellDescription)
'
'    End If
'
'    i = i + 1
'    If i > 1 Then
'    Set nlError = xmldoc.getElementsByTagName("Error")
'    'Set nlError = nlError.Item(0)
'    Set nError = nlError
'    Set ellDescription = xmldoc.createElement("Description")
'    ellDescription.nodeTypedValue = sErrorMessage
'    Call nError.appendChild(ellDescription)
'
'    End If
'
'        'Save XML Document
'        'Home
'        xmldoc.Save ("C:\Shane\Projects\LCB\FormB\XML Docs\Error\FormB_Error.xml")
'        'xmldoc.Save ("D:\Projects\LCB\FormB\XML Docs\Error\FormB_Error.xml")
'
'End If
'
''clean up
'Set xmldoc = Nothing
'Set ProcessInst = Nothing
'Set nRootElement = Nothing
'Set nErrorList = Nothing
'Set ellErrorList = Nothing
'Set nlError = Nothing
'Set ellError = Nothing
'Set nError = Nothing
'Set ellDescription = Nothing
'
'PROC_EXIT:
'  Exit Function
'
'PROC_ERROR:
'  Err.Raise Err.Number, _
'            "clsXMLError/XMLCreateDataErrFile", _
'            Err.Description
'
'Resume PROC_EXIT
'
'End Function 'XMLCreateDataErrFile
